home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / nflpk.arc / NFLPK.BAS
BASIC Source File  |  1980-01-01  |  7KB  |  198 lines
  1. 10 KEY OFF:CLS
  2. 20 SCREEN 0
  3. 30 WIDTH 40
  4. 40 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  5. 50 PRINT"░┌───────────────────────────────────┐░"
  6. 60 PRINT"░│                                   │░"
  7. 70 PRINT"░│            6013-A.BAS             │░"
  8. 80 PRINT"░│             NFL-PIKS              │░"
  9. 90 PRINT"░│                                   │░"
  10. 100 PRINT"░│                                   │░"
  11. 110 PRINT"░│ BROUGHT TO YOU BY THE MEMBERS OF  │░"
  12. 120 PRINT"░│      ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄      │░"
  13. 130 PRINT"░│        █   █   █ █     █   █      │░"
  14. 140 PRINT"░│        █   █▄▄▄█ █     █   █      │░"
  15. 150 PRINT"░│        █   █     █     █   █      │░"
  16. 160 PRINT"░│      ▄▄█▄▄ █     █▄▄▄▄ █▄▄▄█      │░"
  17. 170 PRINT"░│                                   │░"
  18. 180 PRINT"░│      International PC Owners      │░"
  19. 190 PRINT"░│                                   │░"
  20. 200 PRINT"░│P.O. Box 10426, Pittsburgh PA 15234│░"
  21. 210 PRINT"░│                                   │░"
  22. 220 PRINT"░└───────────────────────────────────┘░"
  23. 230 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  24. 240 PRINT
  25. 250 PRINT "       PRESS ANY KEY TO CONTINUE
  26. 260 A$=INKEY$: IF A$="" THEN 260
  27. 270 WIDTH 80
  28. 280 CLS
  29. 1000 KEY OFF
  30. 1010 CLS
  31. 1020 ' FOOTBALL PICKS BY DAVID BRONSON.
  32. 1030 ' MODIFIED FOR IBM-PC BY CHUCK HARRINGTON 2/28/83
  33. 1040 '
  34. 1050 '
  35. 1060 'SEE POPLUAR COMPUTING FOR JANUARY, 1982 P. 74.
  36. 1070 '
  37. 1080 PRINT
  38. 1090 PRINT "THIS PROGRAM WILL LET YOU PICK THE POINT SPREAD"
  39. 1100 PRINT "OF ANY GIVEN FOOTBALL GAME BETWEEN THE 29 TEAMS OF"
  40. 1110 PRINT "THE NFL.  TO PERFORM RELIABLY, THE PROGRAM"
  41. 1120 PRINT "NEEDS THE RESULTS OF AT LEAST THE FIRST FOUR WEEKS"
  42. 1130 PRINT "GAMES. THE MORE RESULTS YOU GIVE THE PROGRAM, THE BETTER"
  43. 1140 PRINT "IT'S PREDICTIONS WILL BE."
  44. 1150 PRINT:PRINT: INPUT "PRESS <ENTER> TO CONTINUE"; R$
  45. 1160 CLS
  46. 1170 PRINT "SELECT AN OPTION BY PRESSING THE APPROPRIATE KEY..."
  47. 1180 PRINT:PRINT:PRINT
  48. 1190 PRINT "<S>ET UP THE SYSTEM."
  49. 1200 PRINT TAB(10) "DO THIS ONLY ONCE PER SEASON AT FIRST USE."
  50. 1210 PRINT
  51. 1220 PRINT "<U>PDATE THE TEAM FILE - DO THIS AFTER EACH WEEKS' RESULTS ARE IN."
  52. 1230 PRINT
  53. 1240 PRINT "<P>REDICT RESULTS OF A GAME."
  54. 1250 PRINT
  55. 1260 PRINT "<R>EPORT THE CURRENT STATISTICS."
  56. 1270 PRINT
  57. 1280 PRINT "<Q>UIT."
  58. 1290 A$=INKEY$: IF A$="" THEN 1290
  59. 1300 IF A$ = "S" THEN 1380
  60. 1310 IF A$ = "U" THEN 1660
  61. 1320 IF A$ = "P" THEN 2070
  62. 1330 IF A$ = "R" THEN 2450
  63. 1340 IF A$ = "Q" THEN END
  64. 1350 GOTO 1290
  65. 1360 FOR I = 1 TO 1000: NEXT I
  66. 1370 RETURN
  67. 1380 CLS: PRINT "SET UP SYSTEM: DO NOT PROCEED IF YOU HAVE ALREADY"
  68. 1390 PRINT "DONE THIS ONCE THIS SEASON, BECAUSE YOUR PREVIOUS"
  69. 1400 PRINT "RESULTS WILL BE ERASED."
  70. 1410 PRINT:PRINT "DO YOU REALLY WANT TO SET UP THE SYSTEM?";
  71. 1420 INPUT " (Y OR N)";R$
  72. 1430 IF R$= "Y" OR R$ = "y" THEN 1440 ELSE 1160
  73. 1440 PRINT
  74. 1450 PRINT "SETTING UP SYSTEM...STANDBY"
  75. 1460 GOSUB 2650
  76. 1470 FOR T = 1 TO 28
  77. 1480 READ TM$
  78. 1490 DM$=MKI$(0)
  79. 1500 LSET T$=TM$: LSET O$=DM$: LSET D$=DM$: LSET PS$=DM$
  80. 1510 LSET PG$=DM$: LSET G$=DM$: LSET W$=DM$
  81. 1520 PUT #1,T
  82. 1530 NEXT T
  83. 1540 CLOSE #1
  84. 1550 PRINT
  85. 1560 PRINT "SET-UP COMPLETE."
  86. 1570 INPUT "PRESS <ENTER> TO CONTINUE";R$
  87. 1580 GOTO 1160
  88. 1590 DATA ATLANTA,GREEN BAY,NEW YOUR (GIANTS),CHICAGO
  89. 1600 DATA LOS ANGELES,PHILADELPHIA,DALLAS,MINNESOTA
  90. 1610 DATA SAN FRANSISCO,DETROIT,NEW ORLEANS, ST LOUIS
  91. 1620 DATA TAMPA BAY,WASHINGTON,BALTIMORE,DENVER
  92. 1630 DATA NEW ENGLAND,BUFFALO,HOUSTON,NEW YORK (JETS)
  93. 1640 DATA CINCINNATI,KANSAS CITY,OAKLAND,CLEVELAND
  94. 1650 DATA MIAMI,PITTSBURGH,SAN DIEGO,SEATTLE
  95. 1660 CLS:PRINT "UPDATE STATISTICS OPTION"
  96. 1670 PRINT
  97. 1680 INPUT "HOW MANY WEEKS HAVE BEEN PLAYED IN THE REGULAR SEASON";G
  98. 1690 IF G<1 THEN 1160
  99. 1700 GOSUB 2650:  'OPEN STATS FILE.
  100. 1710 GOSUB 2000: 'DISPLAY LIST OF TEAMS.
  101. 1720 PRINT
  102. 1730 INPUT "TYPE THE NUMBER OF THE TEAM TO BE UPDATED (0 TO QUIT)...";R
  103. 1740 IF R < 1 OR R> 28 THEN CLOSE #1: GOTO 1160
  104. 1750 CLS
  105. 1760 GET #1,R
  106. 1770 PRINT "TEAM:";TAB(30); T$
  107. 1780 PRINT STRING$(50,"-")
  108. 1790 PRINT "OFFENSIVE YARDS:";TAB(30);CVI(O$)
  109. 1800 PRINT
  110. 1810 INPUT "NEW INFO"; O1
  111. 1820 PRINT
  112. 1830 PRINT "DEFENSIVE YARDS:";TAB(30); CVI(D$)
  113. 1840 PRINT
  114. 1850 INPUT "NEW INFO";D1
  115. 1860 PRINT
  116. 1870 PRINT "POINTS SCORED:";TAB(30);CVI(PS$)
  117. 1880 PRINT
  118. 1890 INPUT "NEW INFO:";P1
  119. 1900 PRINT
  120. 1910 PRINT "POINTS GIVEN UP:";TAB(30);CVI(PG$)
  121. 1920 PRINT
  122. 1930 INPUT "NEW INFO";P2
  123. 1940 PRINT
  124. 1950 W=CVI(W$): IF P1>P2 THEN W=W+1
  125. 1960 LSET O$=MKI$(O1): LSET D$=MKI$(D1): LSET PS$=MKI$(P1)
  126. 1970 LSET PG$=MKI$(P2): LSET G$=MKI$(G): LSET W$=MKI$(W)
  127. 1980 PUT #1,R
  128. 1990 GOTO 1710
  129. 2000 CLS: RESTORE
  130. 2010 FOR I=1 TO 27 STEP 2
  131. 2020 READ T1$,T2$
  132. 2030 PRINT I;"-";T1$;TAB(32);I+1;"-";T2$
  133. 2040 IF I=13 THEN PRINT STRING$(50,"-")
  134. 2050 NEXT I
  135. 2060 RETURN
  136. 2070 CLS:PRINT "PREDICT RESULTS OPTION"
  137. 2080 GOSUB 2650: 'OPEN STATS FILE
  138. 2090 GOSUB 2000: 'DISPLAY LIST OF TEAMS
  139. 2100 PRINT
  140. 2110 INPUT "ENTER HOME TEAM'S NUMBER (0 TO QUIT)";HT%
  141. 2120 PRINT
  142. 2130 IF HT%<1 OR HT%>28 THEN CLOSE #1: GOTO 1160
  143. 2140 INPUT "ENTER VISITOR TEAM'S NUMBER (0 TO QUIT)";VT%
  144. 2150 IF VT%<1 OR VT%>28 THEN CLOSE #1: GOTO 1160
  145. 2160 GET #1,HT%
  146. 2170 HT$=T$: HO=CVI(O$): HD=CVI(D$): HPS=CVI(PS$): HG=CVI(PG$): G=CVI(G$)
  147. 2180 CLS
  148. 2190 GET #1,VT%
  149. 2200 VT$=T$: VD=CVI(D$): VO=CVI(O$): VPS=CVI(PS$): VG=CVI(PG$)
  150. 2210 PRINT VT$; "AT ";HT$; "..."
  151. 2220 IF G=0 THEN PRINT:PRINT "NOT ENOUGH INFO.":CLOSE #1: GOTO 1150
  152. 2230 TH=HO + VD: TV=VO+HD
  153. 2240 EHG=TH/(G*2):EVG=TV/(G*2)
  154. 2250 THP=EHG*7/100: TVP=EVG*7/100
  155. 2260 AHP=HPS+VG: AVP=VPS+HG
  156. 2270 HHP=AHP/(G*2): VX=AVP/(G*2)
  157. 2280 VF=(TVP+VX)/2: HF=(THP+HHP)/2
  158. 2290 VVC=(VO/100): VR=(VD/100)
  159. 2300 VX=VVC*7: VW=VR*7
  160. 2310 HX=(HO/100)*7: HR=(HD/100)*7
  161. 2320 VTC=VPS-VX: VQ=VG-VW
  162. 2330 HW=HPS-HX: HA=HG-HR
  163. 2340 HC=HW/G: VC=VTC/G
  164. 2350 HQ=HA/G: VQ=VQ/G
  165. 2360 HS=HF+HC-VQ: VS=VF+VC-HQ
  166. 2370 SP=VS-HS
  167. 2380 IF ABS(SP)<1 THEN 2440
  168. 2390 IF SP <-1 THEN WN$=HT$ ELSE WN$=VT$
  169. 2400 PRINT WN$; "BY";INT(ABS(SP)+.5); "POINTS."
  170. 2410 PRINT: PRINT
  171. 2420 INPUT "PRESS <ENTER> TO CONTINUE";R$
  172. 2430 CLS: GOTO 2090
  173. 2440 PRINT VT$;"AT ";HT$;"IS TOO CLOSE TO CALL.": GOTO 2100
  174. 2450 CLS: PRINT "REPORTS OPTION"
  175. 2460 GOSUB 2650: 'OPEN STATS FILE
  176. 2470 FOR P=1 TO 4
  177. 2480 GOSUB 2580: ' PRINT HEADINGS
  178. 2490 FOR T=1 TO 7: 'SEVEN TEAMS PER PAGE
  179. 2500 GET #1,(P-1)*7 + T
  180. 2510 PRINT T$;TAB(22);CVI(G$);TAB(29);CVI(W$);
  181. 2520 PRINT TAB(35);CVI(O$);TAB(43);CVI(D$);
  182. 2530 PRINT TAB(51);CVI(PS$);TAB(57);CVI(PG$)
  183. 2540 PRINT
  184. 2550 NEXT T: INPUT "PRESS <ENTER> TO CONTINUE";R$
  185. 2560 NEXT P
  186. 2570 CLOSE #1: GOTO 1160
  187. 2580 CLS: PRINT "TEAM";TAB(22);"GAMES";TAB(29);"WINS";
  188. 2590 PRINT TAB(35); "YDS";TAB(43);"YDS";
  189. 2600 PRINT TAB(51); "PTS";TAB(43); "PTS"
  190. 2610 PRINT TAB(35); "GAINED";TAB(43); "GIVEN";
  191. 2620 PRINT TAB(51);"WON"; TAB(57);"LOST"
  192. 2630 PRINT STRING$(64,"-")
  193. 2640 RETURN
  194. 2650 OPEN "R",1,"STATS"
  195. 2660 FIELD 1,20 AS T$,2 AS O$,2 AS D$,2 AS PS$,2 AS PG$,2 AS G$, 2 AS W$,96 AS ZZ$
  196. 2670 RETURN
  197. URN
  198. 2650 OPEN